*----------------------------------------------------------------------*
* 程序的事务代码: ZFIU021
* 程序名称:  发票结算单批量导入-基于PO的国内发票
* 作者       :  王鹏
* 时间        : 20241101
* 模块      : FI
* 负责人 :
* 描述 :
*
*
*
* 特殊特性:
*
*
*----------------------------------------------------------------------*
* 修改记录:
*作者      时间      描述
*-----------  --------  -----------------------------------------------*
*
*----------------------------------------------------------------------*
REPORT ZFIU021.
INCLUDE ZFIU021_TOP.
INCLUDE ZFIU021_CLS.
INCLUDE ZFIU021_F01.

INITIALIZATION.

  PERFORM FRM_INIT_SCREEN.

AT SELECTION-SCREEN.

  IF SSCRFIELDS-UCOMM EQ 'FC01'.
    PERFORM FRM_REFRESH_DATA.

    PERFORM FRM_GET_DATA.
    PERFORM FRM_FILL_DATA_TO_EXCEL.
  ENDIF.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.
  PERFORM FRM_GET_FILE.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_ZFPHM-LOW.
  PERFORM ZFPHM_F4_VALUES USING 'S_ZFPHM-LOW'.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_ZFPHM-HIGH.
  PERFORM ZFPHM_F4_VALUES USING 'S_ZFPHM-HIGH'.

START-OF-SELECTION.
  PERFORM FRM_REFRESH_DATA.

  PERFORM FRM_GET_DATA_FROM_EXCEL.

  PERFORM FRM_PROCESS_DATA.

  PERFORM FRM_ALV_DISPLAY.

END-OF-SELECTION.
